home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
business
/
cntws11a.zip
/
DRSTR.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1997-01-03
|
15KB
|
379 lines
DRSTRANS
* Date...............: 12-21-96
* Versions...........: dBASE 5.0, Report
* Notes:
* ------
* Prior to running this procedure with the DO command
* it is necessary use LOCATE because the CONTINUE
* statement is in the main loop.
*-- Parameters
PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, gc_extra
** The first three parameters are of type Logical.
** The fourth parameter is a string. The fifth is extra.
PRIVATE _peject, _wrap,
SUB_CODE
FIRST_REF
ACTCD_REF
SUBCD_DATE
ENDIF
*-- turn word wrap mode off
_wrap=.F.
IF _plength < 1 + 1 + 2
SET DEVICE TO SCREEN
DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE
ACTIVATE WINDOW gw_report
@ 0,1 SAY "Increase the page length for this report."
@ 2,1 SAY "Press any key ..."
x=INKEY(0)
DEACTIVATE WINDOW gw_report
RELEASE WINDOW gw_report
RETURN
ENDIF
_plineno=0 && set lines to zero
*-- NOEJECT parameter
IF gl_noeject
IF _peject="BEFORE"
_peject="NONE"
ENDIF
IF _peject="BOTH"
_peject="AFTER"
ENDIF
ENDIF
*-- Set-up environment
ON ESCAPE DO Prnabort
IF SET("TALK")="ON"
SET TALK OFF
gc_talk="ON"
gc_talk="OFF"
ENDIF
gc_space=SET("SPACE")
SET SPACE OFF
gc_time=TIME() && system time for predefined field
gd_date=DATE() && system date " " " "
gl_fandl=.F. && first and last page flag
gl_prntflg=.T. && Continue printing flag
gl_widow=.T. && flag for checking widow bands
gn_length=LEN(gc_heading) && store length of the HEADING
gn_level=2 && current band being processed
gn_page=_pageno && grab current page number
gn_pspace=_pspacing && get current print spacing
*-- Initialize calculated variables.
debit=0
credit=0
*-- Set up procedure for page break
gn_atline=_plength - 1
ON PAGE AT LINE gn_atline EJECT PA
SUB_CODE
Cyobe
Dyobe
SUB_CODE
FIRST_REF
001
CN004
FIRST_REF
BYobe
BYobe
Cyobe
Cyobe
Cyobe
Cyobe
Cyobe
Cyobe
Cyobe
DTanya
DTanya "
DTanya #
DTanya
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Dyobe
Kmahara
Kmahara
Kmahara
Kyobe
Kyobe
Kyobe
Kyobe
PTaisi
PTaisi
PTaisi
PTaisi
PTaisi
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
Tyobe
001
002
002
003
004
004
005 +
005
006
006
010
010
010
011
012 "
121212 $
12123456 !
1213 (
1234 '
123456 2
123456 &
123456654 ,
123456654 %
123456789 -
123456789
1245
2000 0
2500 3
2500 4
2500 5
2500
3000
3000 .
3000 6
3255
4125 /
4125 #
4555
5000 7
5222 )
5444
6544
6544
6544
6545 *
6565 1
8455
8526 8
8544
8585
8585
CN004
CN004
CN102
CN102
CN102
trim(sub_code)+trim(first_ref)
001
Tyobe005
FIRST_REF
BYobe1245
BYobe6544
Cyobe001
Cyobe003
Cyobe004
Cyobe004
Cyobe012
CyobeCN004
CyobeCN004 "
DTanya121212 #
DTanya4555
DTanya6544
DTanya6544
Dyobe002
Dyobe002
Dyobe006
Dyobe006
Dyobe010
Dyobe010
Dyobe010 2
Dyobe123456 0
Dyobe2500 3
Dyobe2500 4
Dyobe2500 5
Dyobe2500 1
Dyobe8455
DyobeCN102
DyobeCN102
trim(sub_code)+dtos(date)+first_ref
Cyobe19960505012
Tyobe19961011005
BYobe199612281245
BYobe199612286544
Cyobe19960505012
Cyobe19961112004
Cyobe19961112004
Cyobe19961218001
Cyobe19961221003
Cyobe19961221CN004
Cyobe19961221CN004 "
DTanya19961228121212 #
DTanya199612284555
DTanya199612286544
DTanya199701016544
Dyobe19960606CN102
Dyobe19960606CN102
Dyobe19960606CN102
Dyobe19960707010
Dyobe19960707010
Dyobe19960707010
Dyobe19961111006
Dyobe19961111006
Dyobe19961218002
Dyobe19961218002 2
Dyobe19961228123456 1
Dyobe199612288455 0
Dyobe199701012500 3
Dyobe199701012500 4
Dyobe199701012500 5
Dyobe199701012500 (
Kmahara199612281234 '
Kmahara19961228123456
Kmahara199612282000
Kyobe19960606011 $
Kyobe1996122812123456
Kyobe199701018585
Kyobe199701018585 !
PTaisi199612281213
Dyobe19960707010
PTaisi199612281213
PTaisi199612286565
PTaisi199612288526
Tyobe19961011005 +
Tyobe19961011005 &
Tyobe19961228123456654 ,
Tyobe19961228123456654 %
Tyobe19961228123456789 -
Tyobe19961228123456789
Tyobe199612284125 /
Tyobe199612284125
Tyobe199612285000
Tyobe199701013000
Tyobe199701013000 .
Tyobe199701013000
PTaisi199612285444
PTaisi199612286545 *
PTaisi199612286565
PTaisi199612288526
Tyobe19961011005 +
Tyobe19961011005 &
Tyobe19961228123456654 ,
Tyobe19961228123456654 %
Tyobe19961228123456789 -
Tyobe19961228123456789
Tyobe199612284125 /
Tyobe199612284125
Tyobe199612285000
Tyobe199701013000
Tyobe199701013000 .
Tyobe199701013000
DyobeCN102 (
Kmahara1234 '
Kmahara123456
Kmahara2000
Kyobe011 $
Kyobe12123456
Kyobe8585
Kyobe8585 !
PTaisi1213 )
PTaisi5444
PTaisi6545 *
PTaisi6565
PTaisi8526
Tyobe005 +
Tyobe005 &
Tyobe123456654 ,
Tyobe123456654 %
Tyobe123456789 -
Tyobe123456789
Tyobe3000
Tyobe3000 .
Tyobe3000 6
Tyobe3255
Tyobe4125 /
Tyobe4125
Tyobe5000 7
Tyobe5222 8
Tyobe8544
DyobeCN102
Kmahara1234 '
Kmahara123456
Kmahara2000
Kyobe011 $
Kyobe12123456
Kyobe8585
Kyobe8585 !
PTaisi1213 )
PTaisi5444
PTaisi6545 *
PTaisi6565
PTaisi8526
Tyobe005 +
Tyobe005 &
Tyobe123456654 %
Tyobe123456789
Tyobe3000
Tyobe3000
Tyobe4125
Tyobe5000
DyobeCN102
DyobeCN102 (
Kmahara1234 '
Kmahara123456
Kmahara2000
Kyobe011 $
Kyobe12123456
Kyobe8585
Kyobe8585 !
PTaisi1213 )
PTaisi5444
PTaisi6545 *
PTaisi6565
PTaisi8526
Tyobe005 +
Tyobe005 &
Tyobe123456654 %
Tyobe123456789
Tyobe3000
Tyobe3000
Tyobe4125
PTaisi199612285444
PTaisi199612286545 *
PTaisi199612286565
PTaisi199612288526
Tyobe19961011005 +
Tyobe19961011005 &
Tyobe19961228123456654 ,
Tyobe19961228123456654 %
Tyobe19961228123456789 -
Tyobe19961228123456789
Tyobe199612284125 /
Tyobe199612284125
Tyobe199612285000
Tyobe199701013000
Tyobe199701013000 .
Tyobe199701013000 6
Tyobe199701023255 7
Tyobe199701035222 8
Tyobe199701038544